<% public gato %>
colSpan=5>  ▼  הצטרפות לרשימת תפוצה
<% dim c ,r visitor_name=request.form("visitor_name") email=request.form("email") address="רשמת תפוצה" id="רשמת תפוצה" phone="רשמת תפוצה" user_name="רשמת תפוצה" user_pass="רשמת תפוצה" user_pass2="רשמת תפוצה" if visitor_name=nil or email=nil then %> <% else ''''''''''''''''' set c=server.createobject("adodb.connection") c.open DSN_NAME sql="insert into club ( user_name, visitor_name, user_pass,email,address,phone,id )" sql=sql & " select '" & user_name & "' as a, '" sql=sql & visitor_name & "' as b, '" sql=sql & user_pass & "' as c, '" sql=sql & email & "' as d, '" sql=sql & address & "' as e, '" sql=sql & phone & "' as f, '" sql=sql & id & "' as g" c.execute sql if not err then '''''''''Auto send mail response! SMTPServer = "out.inter.net.il" strTO = email msgSubject = "
" & biz_name & "

" & visitor_name & ", שלום." & "
" & "תודה שהצטרפת לרשימת התפוצה שלנו." & "
" & "

בכבוד רב, " & biz_name & "

" set msg = Server.CreateOBject( "JMail.Message" ) 'msg.Logging = true msg.silent = true 'msg.LazySend = False ''''''''msg.Bcc = "" msg.FromName = biz_name msg.From = "site@shopcenter.co.il" msg.AddRecipient strTO, "" msg.Subject = "Thank you from " & biz_name msg.Body = msgSubject 'msg.CharSet = "IL-ASCII" msg.ContentType = "text/html" if not msg.Send( SMTPServer ) then ' Response.write "תודה רבה." ' Response.write "
Error Error
" else ' Response.write "תודה רבה." 'Response.Write "
ok ok ok" end if set msg = Nothing '''''''''END send mail response! %> <% else ''response.write "errrororor" end if end if %>
   

, נא הזן שם וכתובת אי מייל
. אנא מלא את השדות ונסה שנית
   

תודה לך <%=visitor_name%> המשך גלישה נעימה
לעמוד הראשי